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PI: Solve for x 
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PI: Solve for x 



x2-3*x=4 

► add ~4 to each side 

|:x^^3*x+~4-4+^4| 

► simplify 
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x2-3*x=4 
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PI: Solve for x 



x2-3*x+~4=4+~4 
► simplify 
x2-3*x-4=0 
►foctor left-hand side 
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x^-3*x-4=0 
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PI: Solve for x 



(x-4Hx+1)=0 

► A*B=0-^A=0 or B=0 
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► solve linear equation 
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x2-3*x-4=0 
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PI: Solve for : 
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P3: Solve for x 



3*x=4 
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P3: Solve for x 
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RH_ DistributeNegotion 
distribute negation 
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RH_DistributeExponents 
distribute exponents 
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simplify (A-B)-C 
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RH_PutFactorslnOrder 
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RH_CollectAdjLikeFactors 
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RH_CollectAdjLikeTerms 
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RH_MultAndDivRatios 
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RH_SpecialArguments 
evaluate 



RH_SimplifyFOfChs 
simplify F(-A) 
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simplify 
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RH_RightDistribMultOverSum 
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RH_SumTimesSum 
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RH_ExpandToDiffOfSquares2 
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RH_Lne 

ln(e)=1 

RH_LnOfExp 

ln(e-A)=A 

RH_eUpLn 

e--ln(A) -> A I A>0 
RH.LogOflO 

Io9(10)=1 

RH_LogOf10toThe 
Log(lM=A__ 

RH_10UpLog 
10-Log(A) -> A I 



A>0 



RH_SinAsin 
sin(asin(A)) 



-> A 



RH_AsinSin 
asin(sin(A)) -> A 



RH_CosAcos 
cos(ocos(A)) -> A 



RH_AcosCos 
acos(cos(A)) -> A 



RH.TonAtan 
tan(aton(A)) -> A 



RH_AtanTan 
oton(ton(A)) -> A 
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RH_CancelInverseF unctions 
cancel inverse functions 



RH.LnOne 
ln(1)=0 



RH_LnNonpositive 
!n(nonpositive)=unclef 



RH_LogOne 
log(1)=0 



RH_LogNon positive 
log(nonpositive)=undef 



RH_LnSpecialArguments 
evoluote logarithms 
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RH_SinAcos 
sin(acos(A)) 


-> sqrt(1-A-2) 


RH_SinAton 
sin{atan(A)) 


-> A/sqrt(A-2+1) 


RH_CosAsin 
cos(atan(A)) 


-> sqrt(1-x-2) 


RH_CosAtan 
cos{atan(A)) 


-> 1/sqrt(A-2+1) 


RH_TanAsin 
ton(asin(A)) 


-> A/sqrt(1-A-2) 


RH_TanAcos 
tan(acos(A)) 


-> sqrt(1-A-2)/A 



RH_SqrtO 
sqrt(O) -> 0 



RH_Sqrt1 
sqrt(1) -> 1 



RH_SqrtNegotive 
sqrt(negative)=undef 



RH_SqrtSpecialArgunnents 
evoluote sqrt 



iRH_CombineReiotedlnverseFunc I 
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|A| 1 A>=0 -> A 






RH_AbsNonpositive 






RH_AbsApplyDef 


lAj 1 A<=0 -> -A 






evaluate abs 


RH_AbsSign 






|sign(A)| -> 1 
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RH_SinO 
sin(O) -> 0 



RH_SinPiOn5 
sin(pi/6) -> 1/2 



RH_SinPi0n4 

sin(pi/4) -> sqrt(2)/2 



RH_SinPi0n3 

sin(pi/3) -> sqrt(3)/2 



RH_SinPiOn2 
sin(pi/2) -> 1 



RH.SinPi 
sin(pi) -> 0 



RH_SinNPi 
sin(N*pi) -> 0 



RH_SinNPIusHalfPi 
sin((N + 1 /2>pi) -> (-1)-N 



RH_SinSpecialArguments 
evaluate sin 



RH_CosO 
cos(O) -> 1 



RH_CosPiOn6 
cos(pi/6) -> sqrt(3)/2 



RH_CosPi0n4 
cos(pi/4) -> sqrt(2)/2 



RH_CosPiOn3 
cos(pi/3) -> 1/2 



RH_CosPiOn2 
cos(pi/2) -> 0 



RH_CosPi 
cos(pi) -> -1 



RH_CosNPi 

cos(N*pi) -> (-I)-N 



RH_CosNPIusHalfPi 
cos((N+1/2)*pi) -> 0 



RH_TonO 




tan(O) -> 0 






RH_TanPiOn6 






tan(pi/6) -> sqrt(3)/3 






RH_TanPi0n4 






tcn(pi/4) -> 1 






RH_TanPi0n3 




RH_TanSpeclalArguments 


tan(pi/3) -> sqrt(3) 




evaluate tan 


RH_TanPi 






tan(pi) -> 0 






RH_TanNPi 






tan(N*pi) -> 0 






RH_TanNPIusHolfPi 






tan((N+1/2)*pi) -> undef 
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RH_AsInO 
osin(O) -> 0 
RH_Asin1 
asin(l) -> pi/2 



RH_AsinHalf 
asin(l/2) -> pi/6 



RH_AsinSqrt20n2 
osin(sqrt(2)/2) -> 



pi/4 



RH_AsinSqrt30n2 
osin(sqrt(3)/2) -> 



pi/3 
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RH_AsinSpecialArguments 
evaluate asin 



RH_AtanO 
atan(O) -> 



RH_Atan1 
atan(l) -: 



pi/4 



RH_AtonSqrt30n3 
atan(sqrt(3)/3) -> 



pi/6 



RH_AtanSqrt3 
aton(sqrt(3)) -> 



pi/3 



RH_AcosO 




acos(O) -> pi/2 




RH_Acos1 




GC0S(1) -> 0 




RH_AcosHalf 




acos(1/2) -> pi/3 


RH_AcosSqrt20n2 




acos(sqrt(2)/2) - 


> pi/4 


RH_AcosSqrt30n2 




acos(sqrt(3)/2) - 


> P'/6 
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evoluate acos 
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evaluate atan 
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sign(-A) -> 
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RH_SinChs 




sin(-A) -> - 
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RH.AsinChs 




asin(-A) -> 


-osin(A) 


RH_TanChs 




tan(-A) -> 


-tan(A) 


RH.AtcnChs 




atan(-A) -> 


-atan(A) 



RH.AbsChs 
abs(-A) -> 



abs(A) 



RH_CosChs 
cos(-A) -> 



cos(A) 



RH_AcosChs 

acos(-A) -> pi-cos(A) 



RH_FOfChsToChsF 
F(-A) -> -F(A) 



RH_FOfChsToF 
F(-A) -> F(A) 



RH_SimplifyFOfChs 
simplify F(-A) 

— 



1C 
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RH_SinAPIusOrMinusPi 
sin(A[+|-]pi) -> -sin(A) 



RH_SinAPIusPiOn2 
sin(A+pi/2) -> cos(A) 



RH_SinAMinusPiOn2 
sin(A-pi/2) -> -cos(A) 



RH_SinAPIusOrMinus2nPi 
sin(A[+|-]2N*pi) -> sin(A) 



RH_CosAPlusOrMinusPi 
cos(A[+|-]pi) -> -cos(A) 



RH_CosPiOn2MinusA 
cos(pi/2-A) -> sin{A) 



RH_CosAPIusPiOn2 
cos(A4-pi/2) -> -sin(A) 



RH_CosAPIusOrMinus2nPi 
cos(A[+|-]2N*pi) -> cos(A) 

RH_TanAPIusOrMinusPi 
tan(A[+|-]pi) -> ton(A) 



- FIG. 4i 



RH_TanAPIusOrMinusPiOn2 
tQn(A[+|-]pi/2) -> -(1/ton(A)) 

RH_TanAPIusOrMinusNPi 
tQn(A[+|-]N*pi) -> ton(A) 
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110 

. 

i RH_ArgumentReduction i 



RH_ EvenNumrPowerOf Abs 
|AhU -> A-U 



RH_EvenNumrPowerOfSign 
(sign(A)>U -> 1 



RH_SignOfPower 
simplify sign(A''U) 



RH_NegUpOddOnEven 
neg^(odd/even) -> undef 



H RH_MiscSimplify i 
112 



FIG. 4t 



RH_DerRemoveConst 
(c*f)* -> c*f' 

/'RH.DerSum 

V(f+/-g)'=f+/-g' 



> 



/^ROerProduct 

V(f*g)'=f*g'+g*f' r 
/" RH_DerQuotient Xl'^i-^ 

^(f/g)=(g*f'-f*9')/9-2 y - 



RH_DerBasicRules 
bosic derivotives 



/^RH_DerChainRules 
V[9(f(x))]'=9'(f(x))*f'(x) 



RH_Derivotives I 



BLUE=BOnOM UP & 
FULLY TRANSFORM 



RED=TOP LEVEL 



GREEN=HAS ADDITIONAL 
FOLLOW UP RULES 
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(J 



FIG. 4j 

RH_CommuteSum 
A+B -> B+A 



?H_CommuteProd 
\ ^A*B -> B*A 



> 



RH_CombineLikeFactors 
combine like factors 



(RH.CombineLikeTerms 
combine like terms 



> 



RH_GroupSimFcctors 
group factors 



I RH_CancelGroupedLikeFoctors i 



CRH_ExprCompleteSquore \^ 
complete the square y 

rRH_AddSubFracs 



RH_EquolizeDenoms A_ 
find common denominotor^ / 

RH_CommonDenom 
add fractions 



CRH_SimplifyNum 
simplify numerator 



RH_SimplifyDen 
simplify denominator 



CRH_ExpandNum 
expand numerator 
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f RH_ExpQndDen 

I expand denominator 



RH_RationalizeNum 
rationalize numerator 



> 

> 

r RH_RotionalizeDen \_ 
V ^rotionalize denominator JT 

/ RH_ Convert 10nAnyToNegExpon"\ 

( ^1/A -> AK-1) r 

CRH_ConvertDenomToNegExpon"^\ 
A/B = A*B-(-1) y 



TO 

"fig. 



TO 
ViG. 



4m 



RH_RatioToProduct1 
A/B -> (1/B)*A 



RH_RatioToProduct2 
A*B/C -> (A/C)*B 



RH_RatioToProduct3 
A*B/(C*D) -> (A/C)*(B/D) 



RH_NumUpRatToNumUpRootUplnt 
A-(M/N) -> (A-(1/N))-M 



RH_NumUpRatToNumUpintUpRoot [_ 
A-(M/N) -> (A-M)-(1/N) 



RH_IterateIntPowerGT1 
B-n = B*B*B...(n times) 



I RH_ Factor 
lRH_AddAndSubRatios 



TO 

FIG. 4n 



TO FIG. 4k 



RH_CosSqTo1MinusSinSq1 
cos(A)-2 -> 1 - sin(A)-2 



RH_CosSqTo1MinusSinSq2 
cos(A)-3 -> (l-sin(A)-2)*cos(A) 



RH_CosSqTo1 MinusSinSq3 
cos(A)-(2N) -> (1-sin(A)-2)-N 



RH_CosSqTo1 MinusSinSq4 

cos(A)-(2N+ 1 )->( 1 -sin(A)-2)-N*cos(A) 



FIG. 4q 

{RH_CosSqTo1MinusSinSq "i 



I 
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FIG. 4k 



FROM FIG. 4j 




1 


f-lRH_AdditionalTrns 






1 












V 1 








/ RH_SortProcluctByDegree 
group factors by degree 


> 




^H_PermuteSqrtFactorsDeepest 
V^group sqrtQ factors 


> 


/^RH_DistribBQseOverExponentSum^\ 
V^A-(U+V) -> A-U*A-V J~ 






' RH_LnExpand 
expand logarithms 






/ RH_Distr(bBaseOvrExponentDifrnc"\_ 
V^A-(U-V) -> kA}/k^M J~ 






RH_ Permu teLnTermsDeepest 
group ln() terms 




RH_CombinePowers 
combine powers 








RH_PermuteLogTermsDeepest 
group logO terms 




RH_DistributeAbs 
distribute obs 








RH_LnCollect 
collect logarithms 




RH_ColiectAbs 
collect obs 






/ ^H_LnToLog 

1 convert In to log 


> 


r RH_PermuteAbsFactorsDeepest 
^group abs() factors 


> 




RH_LogToLn 
\convert log to In 


> 


RH_DistributeSign 
distribute sign 








RH.TrigExpond 
trigonometric expansion 




RH_SqrtToHalfPow 
sqrt(A) = A^(1/2) 








RH_ExpandHalfAngles 
expend half angles 




RH.HalfPowToSqrt 
k-{\ll) = sqrt(A) 








RH_TanToSinOnCos 
tan(A) -> sin(A)/cos(A) 




'RH_DistributeSqrt 
distribute sqrt 


/ 








RH_SinAToCosPiOn2MinusA 
sin(A) -> cos(pi/2-A)) 












RH_CosToSinPiOn2MinusA 






lRH_CombineSqrts 








cos(A) -> sin(pi/2-A) 







I 
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FROM FIG. 41 



I RH_SinSqTo1 MinusCosSq 

I 

I 

I RH_CosSqTo 1 MinusSInSq T 



RH_AsinToAcos 

asin(A) -> pi/2-acos(A) 



RH_AcosToAsin 

ocos(A) -> pi/2-Qsin(A) 



RH_AsinToAtQn 
asin(S) -> 
otan(S/sqrt(1-S-2)) 



RH_AtanToAsin 
atan(T) -> 
asin(T/sqrt(T-2+1)) 



RH_ Atan Reci procQ IToAta n 
Nonaton(l/A) -> 
pi/2*sign(A)-atan(A) 



RH_ChsProd 
-(A*B) -> (-A)*B 



> 
> 



/ RH_MinusToPlusChs 
\ ^A-B -> A+(-B) 

r RH_AupBtoEupBlnA 
V ^A^U -> e-(U*ln(A)) 

f RH_AupBtolOupBlogA ^ 
\ k-\} -> 10-^(U*log(A)) 

f RH_UpProdToUpUp 
\^A-(U*V) -> (A-^U)^V 



> 



f RH_AupBupCToAupCi 
V ^(A^U)-Ax16 



sAupCupB 
(A-V)-U X 



-TO FIG. 4p 
►TO FIG. 4q 



FIG. 41 



RH_CancelAonA 
A/A -> 1 I A!=0 



R H_ PowerOn Like BaseToPo wer 
A-U/A-> A-(U-I) 



RH_BaseOnLikePowerToPower 
A/A^U -> A-(l-U) 



RH_PowerOnLikePowerToPower 
A-U/A-V -> A-(U-V) 



RH_PowerOnLikeBaseToRecip 
A-U/A -> 1/A-(1-U) 



RH_BaseOnLikePowerToRecip 
A/A^U -> 1/A^(U-1) 



RH_PowerOnLikePowerToRecip 
A^U/A^V -> 1/A^(v-U) 



|RH_CQncel j 
H Grouped 
I LikeFactors 



(SEE 
inc. 4]) 



/RH_AddSubFrac1 



]B/C -> (A[+ -]B)/C^ 

RH_AddSubFrac2 
A/B[+-]C/D -> 
(D*A[+-]B*C)/(B*D) 

RH_AddSubFroc3 > 
A/D[+-]B -> (A[+-]D*B)/D/ 



/RH_A( 
VA[£- 



.AddSubFrac4 
]B/D -> (D*A[+-]B) /D 

FIG. 4m 



,jRH_AddSubi(SEE 
[Fracs__ JFIG. 4j) 
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RH_StriclFactorChsAnyMinusAny 
-A-B -> (A+B) 



I RH_FactorChsAnyMinusAny 



RH_StrictFactorChsAnyPlusAny 
-A+B -> -(A-B) 



I RH_FactorChsAnyPlusAny 
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FIG. 4n 



RH_FactorNegation 
factor - from +/- 



RH_FctrOutCommonDivisorOf Terms 
factor out? 



RH_FactorPerfectSquare 
A^2+/-2AB+B-2 -> (A+/-B)-2 



RH_FactorDiffOfSquares 

A^2 - B-2 -> (A+B)<A-B) 



RH_FQctorDiffOfCubes 

A^3 - B-3 -> (A-B)*(A-2+A*B+B-2) 



RH_FactorSumOf Cubes 

A-3 + B-3 -> (A+B)*(A-2-A*B+B-2) 



0 



RH_FactorSumOrDiff 
factor 



RH_Factorlnteger 
factor integer 



(RH_FactorNumerator 
factor numerator 



CRH_FactorDenominator 
factor denominator 



> 
> 



/rhI 



FactorLeftI 

-]A*B -> A * (1[+-]B) 



/ RH_Factoi 
V-A[+-]A* 



,FactorLeft2 

B -> A * (-1[+-]B) 



FactorLeft3 

-1-A*B -> A * (l[+-]-B) 



/'RH_FactorLeft4 
V ^A*B[+-]A -> A * (B[+-]1) 



/ RH_FactorLeft5 
\ ^-A*B[+-]A -> 



A * (-B[+-]1) 



lRH_Factor~i[.^^^,.. 
I I FIG. 4j) 



/ RH_FoctorLeft6 
V^A*B[+-]-A -> A = 



RH_FoctorLeft7 

A*B[+-]A*C -> A * (B[+-]C) 



RH_FactorLeft8 

■A*B[+-]A*C -> A * (-B[+-]C) 



/^RH_FactorLeft9 
V ^A*B[+-]-A*C -> A ' 



(B[+-]- 



f RH_FactorRight1 
^B[+-]A*B -> (1[+-]A>B 



> 

/ RH_ Factor 
_J~ V-B[+-]MI 

> 
> 

y 



FactorRight2 

> (-1[+-]A>B 



r RH_FoctorRight3 
V ^A*B[+-]B -> (A[+-]1)*B 



> 
> 
> 



f RH_FactorRight4 
V ^A*B[+-]-B -> (A[+-]-1>B 

f RH_FactorRight5 
V ^A*C[+-]B*C -> (A[+-]BK 



> 

y 
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RH_CombineProductsOfPowers 
A-C*B-C -> (A*B)-C 



RH_CombineRatiosOfPowers 
A^C/B-C -> (A/B)-C 



RH_AbsProduct 
|A*B| -> |Ah|B| 



RH.AbsRatio 
|A/B| -> |A|/|B| 



RH_AbsOfUpEitherOnOdcl 
lA^Bl -> lAhB 



RH_SignProduct 

sign(A*B) -> sign(A>sign(B) 



RH_SignRatio 

sign(A/B) -> sign(A)/sign(B) 
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RH_ConnbinePowers 
combine powers 



FIG. 4o 



RH_DistributeAbs 
distribute obs 



RH.DistributeSIgn 
distribute sign 



RH_DlstribSqrtOverProd 
sqrt(A*B) -> sqrt(|A|)*sqrt(|B|) ^ 



RH_DistribSqrtOverRctio 
sqrt(A/B) -> sqrt(|A|)/sqrt(|B|) 



RH.DistributeSqrt 
distribute sqrt 



RH_CombineProdSqrts 
sqrt(A)*sqrt(B) -> sqrt(A*B) 



RH_CombineRatioSqrts 
sqrt(A)/sqrt(B) -> sqrt(A/B) 



^RH_CombineSqrts I (SEE FIG. 4k) 



'RH_LogProduct 




ln(U*V) -> ln(lU|) + ln(lV|) J 


RH_LogRatioOneOnAny 




ln(1/A) -> -ln(A) 




'RH.LogRotio 




ln(U/V) -> In(lUl) - ln(|Vl) ^ 


RH.LogPow 




In(A-B) -> B*ln(lAl) 




'RH_LogProduct 


log(lVl)^ 


log(U*V) -> log(lUl) + 


RH_LogRatioOneOnAny 




log(l/A) -> -log(A) 




'RH_LogRatio 




log(U*V) -> log(|U|) - 


log(lvl). 


RH_LogPow 




log(A-B) -> B*log(|A|) 





RH_LogExpand 
expond logarithms 
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FIG. 4r 

RH.AddEochSide 
odd ? to each side 

f RH.SubEochSide ^ 
V subtract ? from each side y 

RH_MulEachSide 
multiply eoch side by ? 



3 



RH_DivEachSide 
divide each side by 



3 
> 

/ RH_FoctorRHS 

V fact or right-hand side y 

EqnZeroProductPropertyV , 
> A=0 or B=Q J 



RH_SwitchSides 
switch sides 



RH_FactorLHS 
factor left-hand side 



RH_Eqi 
V^A*B=0 



CRH_AnyOnAnyEqZero 
A/B=0 -> A=0 I B!=0 



Q 



RH_Num1EqualNum2 
Num1=Num2 -> false 



RH_PosEqualNonPos 
pos=nonpos -> folse 

LNegEqualNonNeg 
nonneg -> false 



/"rO 

\neg=i 



.AEquolA 
:A -> true 



/ RH_SameDenomBothSides 
^A/D=B/D -> A=B \ D! 



> 

:> 



I RH EqnArithForNonLinearEqns K 
' 

I 1 

I RH_EqnArithForLinearEqns H 
I ' 

I . ' 

I RH_EqnLineQr J- 

I 

H RH_OtherLinEqnTrans 



RH_SolveLinEqn 
solve linear equation 



RH_EqnAnyToPosEqZero 
A-(positive)=0 -> A=0 



> 
> 

(RH_EqnQuadroticFormula \ 
quodrctic formulo ^/ 



CRH_EqnSqrtTheorem 
take sqrt of each side 

^H_EqnCompleteSquare 
I complete the square 



/^ROqnAbsT" 
i ^|A|=|B| -> A=l 

Q 
C 



=8 or A=-B 



^RH_EqnAbs2 
^ |A|=B -> A=B or 

RH_EqnAbs3 



-> A=B or A 



A=-B^ 



Jz« RH_EqnQuodratic 



FROM 
FIG. 4s 



TI-32319 



1=* 



29/33 



FIG. 4s 



r RH_CrossMultiply 
\^ cross multiply 



RH_EqnRational I 



TO FIG. 4r 
I 



/"RH_SqrtEqualSqrt 
^sqrt(A)=sqrt(B) -> A=B 

^H_EqnCnvtEqualNegExpntsToPos\_ 
^A-(-U)=B-(-U) -> A-U=B-U J 



(RH_EqnEqualPosEx 
A^U=B-U -> A= 



IPosExpntsI 
B 



/^H_EqnEqualP' 
VA-U=B-U -> 



iEqualPosExpnts2 

A=B or A=-E 



/TH_SquareBothSides 

Uc 



square each side 



r RH_RaiseBothSidesTo 
yroise eoch side to ? 



> 
> 



/"RH_Ln1To1 Property 
Vln(A)=ln(B) -> A=B 



/1^H_Log1To1 Property 
V log(A)=lo9(B) -> A=B 



Vln(u)=- 



Lr^ToExpForm 
> e-v=u 



CRH_LogToExpForm 
log(u)=v -> 10^v=u 



/^RO 



ExpToLnForm 
> ln(u)=v 



RH_ExpToLogForm 
10-v -> log(u)=v 



f RH_EquateExponentsTheorem y_ 
' ^A^u^A^v -> u=v ^/ 

RH_LnOfEQchSide 
I opply In to eoch side 



>. 
> 
> 
> 
> 



SolveForExpnt \_ 
U=B\x16 U=ln(B)/ln(A) J 



HRH_EqnRadical 



H RH_EqnLogExpon i 



TI-32319 



30/33 



FIG. 5 




130 

RETURN 
{"INAPPLICABLE", 
"COVERED"|; 



LOCAL_seen_an_applicable_child-*— FALSE; 
LOCAL parenLopplicobility-^'MNAPPLICABLE" 
LOCAL parenLcoverage --—"COVERED"; 




PUSH {DEPTH. 
NODE POINTERl 
I 



140 

" ARE 
^THERE UNVISITED" 
.CHILDREN?^ 

142 

\ ^YES 



RETURN {"APPLICABLE' 
"COVERED"!; 



{child_applicobility. child_coverecl| 
APPLICABILITY {expression_pointer, 
nexLchiid, DEPTH); 



134 



RETURN 
{"INAPPLICABLE", 
"NOT COVERED' 




RETURN {parenLapplicabilityr 
porenLcoveragej; 



150^ 



parenLcoverage -«-"N0T COVERED"; 



148-^ 



seen_an_applicable_child-^TRUE; 
porenLapplicability^"applicable"; 

1 
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FIG. 6 
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156 



PRUNE(REFERENCE array_of_structsA 
menu_count, desired, menu_ count) y 




162- 



max_depth-*-MAXIMUM NODE 
DEPTH IN array_of_structs; 



C RETURN >^^^Q 




168- 



k-i-iNDEX OF LAST USED 
ELEMENT IN array_of_structs 



C RETURN K ^^^ 
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182 



184- 
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FIG. 7 
build_ru!e_buckets (node , pointer) 



TRAVERSE THE SUB-DAG ROOTED AT node_pointer 

IN PRE-ORDER, APPENDING POINTERS TO THE 
RULES TO AN INITIALLY-EMPTY ARRAY OF POINTERS 



^86^ SORT 

^RAY BY TOP LEVEL ^ 
^LEV EL OPERATORS OF THE RULES 
BREAKING TIES BY RULE 
PRIORITY 



01 

III 
« 



190- 



IN THE ARRAY. INSERT NULL POINTERS 
BETWEEN POINTERS TO RULES HAVING 
DIFFERENT TOP-LEVEL OPERATORS 



BUILD A TABLE OF PAIRS, WITH EACH PAIR 
BEING AN OPERATOR TOGETHER WITH A POINTER 
TO THE BEGINNING OF THAT SUB-ARRAY IN THE 
ARRAY OF POINTERS TO RULES 



192 



^ RETURN A POINTER TO THE TABLE OF PAIRS ) 



FIG. 8 a 

^^"^^- (fliiiiy.transform.expression (EXPRESSION, rule.set) ) 




190- 



192- 



FOR EACH OPERAND OR ARGUMENT OF THE 
TOP-LEVEL OPERATOR OR FUNCTION OF EXPRESSION 
SUBSTITUTE fully_transform_expression (OPERAND 
OR ARGUMENT. rule_set) 



1 



return fLilly_transfornn_top_ievel ^ 
(RESULT OF ABOVE SUBSTITUTION , rule_set) J 
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FIG. 8 b 

1 94 "fuliy_tronsform_top_leveUEXPRE$SION. rule.set) ) 



FOR EACH RULE HAVING THE SAME TOP-LEVEL OPERATOR 
AS THE EXPRESSION: 
IF THE RULE IS APPLICABLE. RETURN 
apply_rule_top_level_and_follow_up (replacemenL pattern, 
replacement_table, rule_set). WHERE replacement_table 

IS A TABLE OF PAIRS FORMED DURING PATTERN 
MATCHING. WITH EACH PAIR BEING A PATTERN VARIABLE 
AND THE CORRESPONDING MATCHED SUB-EXPRESSION 



198 



NO APPLICABLE RULE 



x: 



RETURN EXPRESSION 




210- 



FOR EACH TOP-LEVEL OPERAND OR ARGUMENT OF 

REPLACEMENT PATTERN. SUBSTITUTE 
apply. rule_top_leveLand_follow_up (OPERAND OR 
ARGUMENT, replacement_toble. ruleset); 



RETURN fully_transform_top_level 
(RESULT OF ABOVE SUBSTITUTION. rule_set) 



3 



